home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Musik / Misc / Amster / Source / about.c next >
Encoding:
C/C++ Source or Header  |  2000-01-01  |  3.2 KB  |  119 lines
  1. /*
  2. ** Amster - About
  3. ** by Jacob Laursen <laursen@myself.com>
  4. */
  5.  
  6. #include "include/config.h"
  7.  
  8. #include "include/mui.h"
  9.  
  10. #include "include/gui.h"
  11. #include "include/about.h"
  12. #include "include/url.h"
  13. #include "pix/biglogo.h"
  14. #include "amster_Cat.h"
  15. #include "include/protos.h"
  16.  
  17. ULONG about_new(struct IClass *cl, Object *obj, struct opSet *msg);
  18.  
  19.  
  20. MUIF about_dispatch(REG(a0) struct IClass *cl,REG(a2) Object *obj,REG(a1) Msg msg)
  21. {
  22.     if (msg->MethodID==OM_NEW) return(about_new(cl, obj, (APTR)msg));
  23.     return DoSuperMethodA(cl, obj, msg);
  24. }
  25.  
  26.  
  27. ULONG about_new(struct IClass *cl, Object *obj, struct opSet *msg)
  28. {
  29.     u_long *okbut;
  30.  
  31.     if (obj = (Object *)DoSuperNew(cl,obj,
  32.         MUIA_Window_Title, MSG_ABOUT_TITLE,
  33.         MUIA_Window_ID, MAKE_ID('A','B','O','U'),
  34.         MUIA_Window_UseBottomBorderScroller, FALSE,
  35.         WindowContents, VGroup,
  36.             MUIA_Background, MUII_RequesterBack,
  37.             Child, ScrollgroupObject,
  38.                 MUIA_Background, MUII_ListBack,
  39.                 MUIA_Scrollgroup_FreeHoriz, FALSE,
  40.                 MUIA_Scrollgroup_Contents, VirtgroupObject, VirtualFrame,
  41.                     Child, VSpace(5),
  42.                     Child, HGroup,
  43.                         Child, HSpace(0),
  44.                         Child, BodychunkObject,
  45.                             MUIA_FixWidth, BIGLOGO_WIDTH,
  46.                             MUIA_FixHeight, BIGLOGO_HEIGHT,
  47.                             MUIA_Bitmap_Width, BIGLOGO_WIDTH,
  48.                             MUIA_Bitmap_Height, BIGLOGO_HEIGHT,
  49.                             MUIA_Bodychunk_Depth, BIGLOGO_DEPTH,
  50.                             MUIA_Bodychunk_Body, (ULONG *)biglogo_body,
  51.                             MUIA_Bodychunk_Compression, BIGLOGO_COMPRESSION,
  52.                             MUIA_Bodychunk_Masking, BIGLOGO_MASKING,
  53.                             MUIA_Bitmap_SourceColors, (ULONG *)biglogo_colors,
  54.                         End,
  55.                         Child, HSpace(0),
  56.                     End,
  57.                     Child, TextObject,
  58.                         MUIA_Font, MUIV_Font_Big,
  59.                         MUIA_Text_Contents, "\33c\33bVersion "AMSTER_VERSION" ("AMSTER_DATE")",
  60.                     End,
  61.                     Child, VSpace(5),
  62.                     Child, TextObject,
  63.                         MUIA_Text_Contents, MSG_ABOUT_LICENSE_TMP,
  64.                     End,
  65.                     Child, RectangleObject,
  66.                         MUIA_FixHeight, 8,
  67.                         MUIA_Rectangle_HBar, TRUE,
  68.                     End,
  69.                     Child, NewObject(gui->url_mcc->mcc_Class, NULL,
  70.                         URL_NAME, MSG_ABOUT_HOMEPAGE_TMP,
  71.                         URL_HREF, "http://home.worldonline.dk/~jlaur/amiga/amster/",
  72.                     End,
  73.                     Child, NewObject(gui->url_mcc->mcc_Class, NULL,
  74.                         URL_NAME, MSG_ABOUT_MAILLIST_TMP,
  75.                         URL_HREF, "http://www.egroups.com/group/amster",
  76.                     End,
  77.                     Child, NewObject(gui->url_mcc->mcc_Class, NULL,
  78.                         URL_NAME, MSG_ABOUT_FAQPAGE,
  79.                         URL_HREF, "http://napster.cjb.net",
  80.                     End,
  81.                     Child, RectangleObject,
  82.                         MUIA_FixHeight, 8,
  83.                         MUIA_Rectangle_HBar, TRUE,
  84.                     End,
  85.                     Child, TextObject,
  86.                         MUIA_InnerLeft, 20,
  87.                         MUIA_InnerRight, 20,
  88.                         MUIA_Text_Contents, MSG_ABOUT_TEAM_TMP,
  89.                     End,
  90.                     Child, RectangleObject,
  91.                         MUIA_FixHeight, 8,
  92.                         MUIA_Rectangle_HBar, TRUE,
  93.                     End,
  94.                     Child, TextObject,
  95.                         MUIA_InnerLeft, 20,
  96.                         MUIA_InnerRight, 20,
  97.                         MUIA_Text_Contents, MSG_ABOUT_GREETS,
  98.                     End,
  99.                     Child, VSpace(5),
  100.                 End,
  101.             End,
  102.             Child, HGroup,
  103.                 Child, HSpace(0),
  104.                 Child, HSpace(0),
  105.                 Child, okbut = SimpleButton(MSG_OK_GAD),
  106.             End,
  107.         End,
  108.         TAG_MORE, msg->ops_AttrList))
  109.     {
  110.  
  111.         DoMethod(okbut, MUIM_Notify, MUIA_Pressed, FALSE, obj, 3, MUIM_Set, MUIA_Window_Open, FALSE);
  112.         DoMethod(obj, MUIM_Notify, MUIA_Window_CloseRequest, TRUE, obj, 3, MUIM_Set, MUIA_Window_Open, FALSE);
  113.  
  114.         return((ULONG)obj);
  115.     }
  116.  
  117.     return NULL;
  118. }
  119.